home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / fido / Rock_1_5.lha / ROCK / nodelist.rexx < prev    next >
OS/2 REXX Batch file  |  1995-05-11  |  674b  |  32 lines
  1. /*
  2.              Rock v1.5 - Fidonet mailer for point systems
  3.                  Copyright (C) 1995  Jean-Marc Xiume'
  4.          This software is distributed under the terms of the
  5.     GNU General Public License. Read "license.doc" for more details.
  6.  
  7. *********** Find the node in nodelist and return needed data ***********
  8. */
  9.  
  10. options results
  11. options failat 99
  12.  
  13. Parse upper arg address nodelist .
  14.  
  15. r=FindNode(address,"telephone",nodelist)
  16. t=substr(r,3)
  17. Address COMMAND "setenv rock_phone "t
  18.  
  19. if left(r,2)='0 ' then do
  20.   say t
  21.   exit 1
  22. end
  23.  
  24. r=FindNode(address,'password',nodelist)
  25.  
  26. if left(r,2)='0 ' then p=""
  27. else p=substr(r,3)
  28.  
  29. Address COMMAND "setenv rock_password "p
  30.  
  31. exit 0
  32.